home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1907copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.3 KB  |  40 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "1907"
  4. Company = "Acclaim"
  5. title = "NFL Quarterback Club '96"
  6. Price = 29.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. System = "Super NES
  13. Title Description = "All the real teams. All the best quarterbacks. And every player that counts.
  14. New perspective allows for up to 80 yards of viewable field, exclusive practice mode, over 10
  15. times as many stats as last year, more than 50 hyper audible plays to call at the line of
  16. scrimmage."
  17.  
  18. -----------------------------------
  19.  
  20. dline = ""
  21. counter = 0
  22. repeat while dline <> title number
  23. counter = counter + 1
  24. dline = GetWord(1, GetLine(titl,counter))
  25. test(dline = title number, LineInTitle = counter)
  26. end repeat
  27. starttitle = LineInTitle
  28. num of titles shown = 6
  29. endtitle = starttitle + num of titles shown - 1
  30. titles = ""
  31. title highlight = ""
  32. repeat with counter = starttitle to endtitle
  33. nextline = GetLine(titl, counter)
  34. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  35. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  36. CharCount(nextline)) ^ Return, title highlight ^ Return)
  37. end repeat
  38. dpage = CurrentPageID
  39. newtitle = FALSE
  40. end if